home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / colr sel tutor.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  11KB  |  317 lines
  1. 5 REM CLEAR SCREEN & TO LOWER CASE
  2. 10 :PRINTCHR$(147)CHR$(14)SPC(47);
  3. 15 REM TITLE & CREDIT
  4. 20 :PRINTCHR$(18)" [195][207][204][207][213][210][160][211][197][204][197][195][212][201][207][206][160][212][213][212][207][210][201][193][204][160]"CHR$(146)SPC(88)
  5. 30 PRINT"[195]HARLIE [208]ATERSON     [212]ORONTO  [195]ANADA"SPC(46);
  6. 40 :PRINT"[212][208][213][199][160]#2280"SPC(12)"1983 10 03"SPC(88);
  7. 45 REM INSTRUCTIONS
  8. 50 :PRINT"[212]HE SELECTION OF [195]-64 COLOURS FOR"
  9. 60 :PRINT"  BORDER, BACKGROUND, AND CHARACTERS  "
  10. 70 :PRINT"  IS DISCUSSED AND ILLUSTRATED IN THIS"
  11. 80 :PRINT"  PROGRAM. [193]N ANALYSIS OF THE REACTION "
  12. 90 :PRINT"  BETWEEN THE COLOURS IS OUTLINED AND"
  13. 100 :PRINT"  RULES ARE SET DOWN FOR THEIR COMBIN-    ATION."
  14. 110 :PRINT"    [215]HEN USED WITH MY PROGRAM [195][207][204][207][213][210]  "
  15. 120 :PRINT"  [195][207][205][194][201][206][193][212][201][207][206][160][211][197][204][197][195][212][207][210][160]1983 08 08, THE"
  16. 130 :PRINT"  SCRUTINY OF THE COLOURS, FOR A PART-"
  17. 140 :PRINT"  ICULAR PURPOSE, COULD BE SIMPLIFIED.
  18. 160 :[153]"  (null)HE HUNT CAN BE THOROUGH WHILE ALSO
  19. 170 :PRINT"  ECONOMICAL IN TIME CONSUPTION.
  20. 175 [143] READ-CONTINUE SUBROUTINE (2495)
  21. 180 :[141] 2500
  22. 185 [143] START TUTORIAL
  23. 190 :[153][199](147)[166]47)[199](18)" LEN(null)(null)PEEKRIGHT$(null)RIGHT$(null)CHR$CLOSE(null)LEN(null)VALVAL(null)CLOSELEN(null)(null)(null)(null)(null)(null)CLOSE"[199](146)[166]130);
  24. 200 :[153]"(null)HE SIXTEEN COLOURS AVAILABLE FROM
  25. 210 :PRINT"  THE [195]-64 MAY EACH BE USED FOR THREE
  26. 220 :[153]"  COMPONENT PARTS OF A SCREEN DISPLAY.
  27. 230 :PRINT"  [212]HESE ARE THE BORDER, THE BACKGROUND
  28. 240 :[153]"  AND THE CHARACTERS PRINTED AGAINST
  29. 250 :PRINT"  THIS BACKGROUND.
  30. 260 :[153]"    (null)HESE ' LEN(null)(null)(null)(null)(null)(null) ' MAY, TO VARYING
  31. 270 :PRINT"  DEGREES, EITHER COMPLEMENT OR BE IN
  32. 280 :[153]"  CONFLICT WITH EACH OTHER. (null)HERE ARE
  33. 290 :PRINT"  THREE MAIN POINTS OF CONFLICTION IN
  34. 300 :[153]"  SCREEN DISPLAYS.
  35. 305 REM READ-CONTINUE SUBROUTINE (2495)
  36. 310 :GOSUB 2500
  37. 315 REM DISCUSSION - PAGE 2
  38. 320 :PRINTCHR$(147)SPC(48)CHR$(18)" [208][207][201][206][212][211][160]OF [195][207][206][198][204][201][195][212][201][207][206] "CHR$(146)SPC(91);
  39. 330 :PRINT"1) [194]ACKGROUND AND [195]HARACTERS OF THE
  40. 340 :[153]"     SAME COLOUR."[166]27)"- (null)O CHARACTERS VISIBLE."[166]94);
  41. 350 :[153]"2) LENHOSEN COLOURS UNCOMPEMENTARY TO
  42. 360 :PRINT"     EACH OTHER."SPC(30)
  43. 370 :PRINT"(A) [194]ORDER AND [194]ACKGROUND."SPC(12)"- [194]LURRED OUTLINING."SPC(62);
  44. 380 :PRINT"(B) [194]ACKGROUND AND [195]HARACTERS."SPC(8)"- [195]HARACTERS NOT DISTINCT.
  45. 390 :[153]"3) LENHOSEN COLOURS CAUSE A DISCORDANT"[166]7)"DISPLAY."[166]31);
  46. 400 :[153]"- (null)HIS MAY BE WHAT YOU ARE LOOKING"[166]8);"FOR!
  47. 405 REM READ-CONTINUE SUBROUTINE (2495)
  48. 410 :GOSUB 2500
  49. 415 REM DISCUSSION - PAGE 3
  50. 420 :PRINTCHR$(147)SPC(44)CHR$(18)" [195][207][205][208][204][197][205][197][206][212][193][210][217] [211][195][210][197][197][206][160][196][201][211][208][204][193][217][211][160]"CHR$(146)
  51. 430 :PRINTSPC(82)"[215]ILL PRODUCE GOOD CONTRAST FOR"SPC(51)
  52. 440 :PRINT"(A) ALL SCREEN COLOUR SHADES FROM"SPC(11);
  53. 450 :PRINT"SOFT & LIGHT TO LOUD & DARK.
  54. 460 :[153][166]43)"(B) BACKGROUND EMPHASIZING OR DE-"[166]11)
  55. 470 :[153]"EMPHASIZING BY THE BORDER."[166]50)
  56. 480 :[153]"(C) READABILITY OF THE CHARACTERS.
  57. 485 REM READ-CONTINUE SUBROUTINE (2495)
  58. 490 :GOSUB 2500
  59. 495 REM DISCUSSION PAGE 4
  60. 500 :PRINTCHR$(147)SPC(49)CHR$(18)" [199][210][207][213][208][201][206][199][160][212][200][197] [195][207][204][207][213][210][211] "CHR$(146)
  61. 510 :PRINTSPC(84)"[197]XPERIMENTING WITH [195]-64 COLOURS"SPC(7);
  62. 520 :PRINT"REVEALS THEY CAN BE FORMED INTO FIVE
  63. 530 :[153]"  GROUPS, DEPENDING ON THE TENDENCIES
  64. 540 :PRINT"  OF THE COLOURS TO BE CONFLICTING.
  65. 550 :[153]"    PEEKLACK AND WHITE WORK WELL WITH ALL
  66. 560 :PRINT"  COLOURS. [194]UT, AS WITH OTHER COLOURS,
  67. 570 :[153]"  THEY CAN NOT BE USED SUCCESSFULLY AS
  68. 580 :PRINT"  BOTH BACKGROUND AND CHARACTERS. [212]HEY
  69. 590 :[153]"  FORM THE FIRST AND THE LAST OF THESE
  70. 600 :PRINT"  COLOUR SETS. [212]HE 14 LEFT MAKE UP THE
  71. 610 :[153]"  OTHER THREE SETS. (null)HOUGH THE COLOURS
  72. 620 :PRINT"  WITHIN EACH SET ARE NOT COMLEMENTARY
  73. 630 :[153]"  TO ONE ANOTHER, THEY MAY BE USED FOR
  74. 640 :PRINT"  A BORDER AND CHARACTERS IF SEPARATED
  75. 650 :[153]"  BY A BACKGROUND FROM ANOTHER GROUP.
  76. 660 :PRINT"  [212]HREE COLOURS, EACH FROM A DIFFERENT
  77. 670 :[153]"  SET, CAN BE ASSIGNED IN ANY FORMAT.
  78. 675 REM READ-CONTINUE SUBROUTINE (2495)
  79. 680 :GOSUB 2500
  80. 685 REM DISCUSSION PAGE 5
  81. 690 :PRINTCHR$(147)SPC(47)CHR$(18)" [195][207][206][198][204][201][195][212][201][206][199][160][195][207][204][207][213][210][160][199][210][207][213][208][211] "CHR$(146)
  82. 700 :PRINTSPC(84)"[212]HE FOLLOWING TABLE LISTS THE SETS
  83. 710 :[153]"  OF CONFLICTING COLOURS,IN A SEQUENCE
  84. 720 :PRINT"  OF FROM DARKEST TO LIGHTEST.[201]T CAN
  85. 730 :[153]"  BE USED ADVANTAGEOUSLY WHEN A SCREEN
  86. 740 :PRINT"  COLOUR COMBINATION IS BEING CHOSEN.
  87. 750 :[153]"    ATN (null)(null) SET COLOUR COMPATIBILITY MAY
  88. 760 :PRINT"  NOT EQUAL THAT OF A [214][201][196][197][207][160][205][207][206][201][212][207][210],
  89. 770 :[153]"  SUCH AS A LEN(null)(null)(null)(null)STR$(null)(null)VAL (null)(null)STR$VAL(null)-1701.
  90. 775 REM READ-CONTINUE SUBROUTINE (2495)
  91. 780 :GOSUB 2500
  92. 785 REM COLOUR TABLE SUBROUTINE (2545)
  93. 790 :GOSUB 2550
  94. 795 REM READ-CONTINUE SUBROUTINE (2495)
  95. 800 :GOSUB 2500
  96. 810 REM DISCUSSION PAGE 6
  97. 820 :PRINTCHR$(147)CHR$(14)
  98. 830 :PRINTSPC(45)CHR$(18)" [201][204][204][213][211][212][210][193][212][201][214][197] [211][195][210][197][197][206][160][196][201][211][208][204][193][217][211][160]"CHR$(146)SPC(89)
  99. 840 :PRINT"[212]HE FOLLOWING SCREEN DISPLAYS WILL
  100. 850 :[153]"  DEMONSTRATE SOME POSSIBLE RESULTS OF
  101. 860 :PRINT"  COLOUR SELECTIONS FOR THE BORDERS,
  102. 870 :[153]"  BACKGROUNDS, AND CHARACTERS. PEEKAD AND
  103. 880 :PRINT"  GOOD WILL BE SEEN. [217]OUR TASTES WILL,
  104. 890 :[153]"  NO DOUBT, DESIDE WHICH IS WHICH!
  105. 900 :PRINT"    [215]HERE A SINGLE COLOUR IS USED FOR
  106. 910 :[153]"  ALL PARTS OF THE SCREEN, BLACKOUTS,
  107. 920 :PRINT"  WHITEOUTS, AND WHATEVER COLOUROUTS
  108. 930 :[153]"  CHOSEN WILL RESULT. (null)THER DISPLAYS
  109. 940 :PRINT"  WILL PRODUCE FUZZY BACKGROUND AND
  110. 950 :[153]"  BORDER JUNCTIONS AND/OR UNREADABLE
  111. 960 :PRINT"  CHARACTERS. [211]TILL OTHERS SHALL BE
  112. 970 :[153]"  EASILY ACCEPTED,RANGING FROM LIGHT
  113. 980 :PRINT"  AND GENTLE TO DARK AND BOLD.
  114. 985 [143] READ-CONTINUE SUBROUTINE (2495)
  115. 990 :[141] 2500
  116. 995 [143] 17 COLOUR SCREEN DISPLAYS
  117. 1000 :BO[178]0:S1[178]1:BA[178]0:S2[178]1:C[178]0:S3[178]1:CC[178]144
  118. 1005 [143] SCREEN COLOUR SUBROUTINE (2745)
  119. 1010 :[141] 2750
  120. 1020 :[129] X [178] 1 [164] 3000:[130] X
  121. 1030 :BO[178]1:S1[178]5:BA[178]1:S2[178]5:C[178]1:S3[178]5:CC[178]5
  122. 1035 [143] SCREEN COLOUR SUBROUTINE (2745)
  123. 1040 :[141] 2750
  124. 1050 :[129] X [178] 1 [164] 3000:[130] X
  125. 1060 :BO[178]4:S1[178]3:BA[178]4:S2[178]3:C[178]4:S3[178]3:CC[178]156
  126. 1065 [143] SCREEN COLOUR SUBROUTINE (2745)
  127. 1070 :[141] 2750
  128. 1080 :[129] X [178] 1 [164] 3000:[130] X
  129. 1090 :BO[178]11:S1[178]2:BA[178]2:S2[178]2:C[178]6:S3[178]2:CC[178]31
  130. 1095 [143] SCREEN COLOUR SUBROUTINE (2745)
  131. 1100 :[141] 2750
  132. 1110 :[129] X [178] 1 [164] 3000:[130] X
  133. 1120 :BO[178]5:S1[178]3:BA[178]10:S2[178]3:C[178]14:S3[178]3:CC[178]154
  134. 1125 [143] SCREEN COLOUR SUBROUTINE (2745)
  135. 1130 :[141] 2750
  136. 1140 :[129] X [178] 1 [164] 3000:[130] X
  137. 1150 :BO[178]15:S1[178]4:BA[178]7:S2[178]4:C[178]13:S3[178]4:CC[178]153
  138. 1155 [143] SCREEN COLOUR SUBROUTINE (2745)
  139. 1160 :[141] 2750
  140. 1161 [153]" (null)HE BOY STOOD ON THE BURNING DECK
  141. 1162 PRINT" [200]IS FEET WERE COVERED WITH BLISTERS
  142. 1163 [153]" ASCLAMES CAME UP AND BURNT OFF HIS PANTS
  143. 1164 PRINT"[160][193]ND NOW HE WEARS HIS SISTERS.
  144. 1165 [143] HE HAW! HE HAW! HE HAW!
  145. 1166 [143] HIS FIRST NAME IS JACK.
  146. 1167 [143] HIS SECOND NAME HAS ONE LETTER LESS.
  147. 1170 :[129] X [178] 1 [164] 3000:[130] X
  148. 1175 [143] SCREEN TO STANDARD COLOUR
  149. 1180 :[153][199](147);:[151] 53280,14:[151] 53281,6:[153][199](154):[153][166]90)
  150. 1190 :[153]"ATNATNATNATNATNATN(null)(null)(null)(null)(null)CHR$CHR$CHR$CHR$LEFT$LEFT$LEFT$!!":[153][166]92)
  151. 1200 :[153]"(null)VALVALCLOSE(null)LEFT$ATN(null)CLOSERIGHT$CLOSE(null)VALATN(null)?"[166]94)"(null)(null)(null)(null)!"[166]10)"(null)(null)(null)(null)!"[166]10)"(null)(null)(null)(null)!"[166]97)
  152. 1210 [153]"(null)(null)(null)CLOSE(null)(null)CLOSE(null)(null)(null)(null)(null)."[166]97)"(null)(null)(null)(null)CLOSE(null)(null)(null)VALCLOSE(null)LEFT$VAL(null)VALCLOSE(null)LEFT$VAL(null)CLOSELENATN(null)VALCLOSEASC(null)(null)(null)!"[166]91)
  153. 1220 [153]"(null)(null)ATN(null)(null)RIGHT$(null)CHR$CLOSE(null)RIGHT$(null)LEFT$CLOSE(null)LEFT$VALCLOSEPEEK(null)RIGHT$CHR$LEFT$(null)RIGHT$VAL(null)"[166]65)"ATN(null)STR$"[166]66)
  154. 1230 :[153]"VAL(null)STR$RIGHT$(null)CHR$CLOSE(null)RIGHT$(null)LEFT$CLOSE(null)LEFT$VALCLOSE(null)LEFT$ATN(null)(null)RIGHT$VAL(null)"
  155. 1240 :[129] X [178] 1 [164] 8000:[130] X
  156. 1250 :BO[178]7:S1[178]4:BA[178]1:S2[178]5:C[178]13:S3[178]4:CC[178]153
  157. 1255 [143] SCREEN COLOUR SUBROUTINE (2745)
  158. 1260 :[141] 2750
  159. 1270 :[153]" PEEKORDER & LENHARACTERS FROM SET 4"
  160. 1280 :[153]" AND PEEKACKGROUND FROM SET 5
  161. 1290 :FOR X = 1 TO 10000:NEXT X
  162. 1300 :BO=5:S1=3:BA=1:S2=5:C=14:S3=3:CC=154
  163. 1305 REM SCREEN COLOUR SUBROUTINE (2745)
  164. 1310 :GOSUB 2750
  165. 1320 :PRINT" [194]ORDER & [195]HARACTERS FROM SET 3"
  166. 1330 :PRINT" AND [194]ACKGROUND FROM SET 5
  167. 1340 :[129] X [178] 1 [164] 10000:[130] X
  168. 1350 :BO[178]3:S1[178]4:BA[178]14:S2[178]3:C[178]1:S3[178]5:CC[178]5
  169. 1355 [143] SCREEN COLOUR SUBROUTINE (2745)
  170. 1360 :[141] 2750
  171. 1370 :[153]" PEEKORDER FROM SET 4"[166]23)"PEEKACKGROUND FROM SET 3
  172. 1380 :PRINT" [195]HARACTERS FROM SET 5
  173. 1390 :[129] X [178] 1 [164] 10000:[130] X
  174. 1400 :BO[178]12:S1[178]3:BA[178]13:S2[178]4:C[178]5:S3[178]3:CC[178]30
  175. 1405 [143] SCREEN COLOUR SUBROUTINE (2745)
  176. 1410 :[141] 2750
  177. 1420 :[153]" PEEKORDER AND LENHARACTERS FROM SET 3
  178. 1430 :PRINT" [194]ACKGROUND FROM SET 4
  179. 1440 :[129] X [178] 1 [164] 10000:[130] X
  180. 1450 :BO[178]15:S1[178]4:BA[178]12:S2[178]3:C[178]11:S3[178]2:CC[178]151
  181. 1455 [143] SCREEN COLOUR SUBROUTINE (2745)
  182. 1460 :[141] 2750
  183. 1470 :[153]" PEEKORDER FROM SET 4"[166]23)"PEEKACKGROUND FROM SET 3
  184. 1480 :PRINT" [195]HARACTERS FROM SET 2"SPC(59)"[193]LL THE [199][210][197][217][211]!
  185. 1490 :[129] X [178] 1 [164] 10000:[130] X
  186. 1500 :BO[178]2:S1[178]2:BA[178]10:S2[178]3:C[178]6:S3[178]2:CC[178]31
  187. 1505 [143] SCREEN COLOUR SUBROUTINE (2745)
  188. 1510 :[141] 2750
  189. 1520 :[153]" PEEKORDER & LENHARACTERS FROM SET 2
  190. 1530 :PRINT" AND [194]ACKGROUND FROM SET 3
  191. 1540 :[129] X [178] 1 [164] 10000:[130] X
  192. 1550 :BO[178]8:S1[178]3:BA[178]9:S2[178]2:C[178]0:S3[178]1:CC[178]144
  193. 1555 [143] SCREEN COLOUR SUBROUTINE (2745)
  194. 1560 :[141] 2750
  195. 1570 :[153]" PEEKORDER FROM SET 3"[166]23)"PEEKACKGROUND FROM SET 2
  196. 1580 :PRINT" [195]HARACTERS FROM SET 1
  197. 1590 :[129] X [178] 1 [164] 10000:[130] X
  198. 1600 :BO[178]10:S1[178]3:BA[178]0:S2[178]1:C[178]8:S3[178]3:CC[178]129
  199. 1605 [143] SCREEN COLOUR SUBROUTINE (2745)
  200. 1610 :[141] 2750
  201. 1620 :[153]" PEEKORDER AND LENHARACTERS FROM SET 3
  202. 1630 :PRINT" AND [194]ACKGROUND FROM SET 1
  203. 1640 :[129] X [178] 1 [164] 10000:[130] X
  204. 1650 :BO[178]11:S1[178]2:BA[178]0:S2[178]1:C[178]6:S3[178]2:CC[178]31
  205. 1655 [143] SCREEN COLOUR SUBROUTINE (2745)
  206. 1660 :[141] 2750
  207. 1670 :[153]" PEEKORDER AND LENHARACTERS FROM SET 2
  208. 1680 :PRINT" AND [194]ACKGROUND FROM SET 1"SPC(55)"[198]OR THE [193][198][212][197][210] [205][201][196][206][201][199][200][212][160][194][193][210] GANG"
  209. 1690 :FOR X = 1 TO 10000:NEXT X
  210. 1700 :BO=0:S1=1:BA=4:S2=3:C=1:S3=5:CC=5
  211. 1705 REM SCREEN COLOUR SUBROUTINE (2745)
  212. 1710 :GOSUB 2750
  213. 1720 :PRINT" [198]ROM THE TOP TO THE BOTTOM OF THE SETS.
  214. 1730 :[153]" ATNND THE MIDDLE TO BOOT.
  215. 1740 :FOR X = 1 TO 10000:NEXT X
  216. 1750 :BO=1:S1=5:BA=4:S2=3:C=0:S3=1:CC=144
  217. 1755 REM SCREEN COLOUR SUBROUTINE (2745)
  218. 1760 :GOSUB 2750
  219. 1770 :PRINT" [211][197][216][217][160][197][200]?
  220. 1780 :[153]" MID$UST THE PEEKORDER AND"[166]21)"LENHARACTERS REVERSED.
  221. 1790 :FOR X = 1 TO 10000:NEXT X
  222. 1795 REM SUMMARY PAGE 1
  223. 1800 :PRINTCHR$(147);:POKE 53280,14:POKE 53281,6:PRINTCHR$(154):PRINTSPC(55)
  224. 1810 :PRINTCHR$(18)" [211][213][205][205][193][210][217][160]"CHR$(146)SPC(100)
  225. 1820 :PRINT"[212]HAT WAS A SMALL SAMPLE OF SCREENS
  226. 1830 :[153]"  AVAILABLE, 17 OUT OF 4096!   (null)OO BAD
  227. 1840 :PRINT"  YOU COULDN'T READ THE RISQUE POETRY.
  228. 1850 :[153]"  (null)LEFT$ATN(null)? (null)LEFT$VAL(null)VAL? (null)EEK AND YE SHALL FIND.
  229. 1860 :PRINT"    [198]OR NOW, WE SHOULD PUT IT TOGETHER
  230. 1870 :[153]"  SO THAT YOU CAN COPY SOME NOTES. CHR$OT
  231. 1880 :PRINT"  YOUR PAPER & PENCIL READY? [198]IRST THE
  232. 1890 :[153]"  (null)ATNPEEK(null)VAL, AND THEN THE PERTINENT RULES.
  233. 1900 :PRINTSPC(86)"  [198]IRE WHEN YOU ARE READY!
  234. 1905 [143] READ-CONTINUE SUBROUTINE (2495)
  235. 1910 :[141] 2500
  236. 1915 [143] COLOUR TABLE SUBROUTINE (2545)
  237. 1920 :[141] 2550
  238. 1925 [143] READ-CONTINUE SUBROUTINE (2495)
  239. 1930 :[141] 2500
  240. 1935 [143] TABLE USES RULES SUBROUTINE
  241. 1940 :[153][199](14):[141] 2850
  242. 1945 [143] READ-CONTINUE SUBROUTINE (2495)
  243. 1950 :[141] 2500
  244. 1955 [143] END OR TEST PROGRAM CHOICE
  245. 1960 :[153][199](147)"    (null)OU MAY NOW END THE PROGRAM OR, IF
  246. 1970 :PRINT"  YOU HAVE THE RIGHT DISKETTE IN YOUR
  247. 1980 :[153]"  DRIVE, LET ME CALL UP THE TEST PROG-
  248. 1990 :PRINT"  RAM. [212]HEN YOU CAN DESIGN YOUR OWN
  249. 2000 :[153]"  SUPERSCREEN.
  250. 2010 :FOR T = 1 TO 7000:NEXT
  251. 2020 :PRINT"  [195]ARE TO BE A DESIGNER? Y/N";
  252. 2030 :GET A$:IF A$ = "" THEN 2030
  253. 2040 :IF A$ ="N"THEN 2070
  254. 2050 :IF A$ <>"Y"THEN 2030
  255. 2060 :LOAD"0:COLR SELECTOR.C",8
  256. 2070 :PRINTCHR$(147):POKE53280,12:POKE53281,11:PRINTCHR$(153)
  257. 2080 :PRINT""SPC(10);
  258. 2090 :PRINT" [195][204][193][211][211][160][196][201][211][205][201][211][211][197][196].[160]"
  259. 2100 :FOR T = 1 TO 7000:NEXT
  260. 2110 :PRINTCHR$(147);:POKE53280,14:POKE53281,6:PRINTCHR$(154);
  261. 2120 :END
  262. 2490 END
  263. 2495 REM READ TIME - CONTINUE
  264. 2500 :FOR TM = 1 TO 2000:NEXT TM
  265. 2510 :PRINT"";
  266. 2520 :PRINTCHR$(18)" PRESS SPACE BAR TO CONTINUE "
  267. 2530 :GET A$:IF A$ <> " " THEN 2530
  268. 2540 :RETURN
  269. 2545 REM COLOUR TABLE SUBROUTINE
  270. 2550 :PRINTCHR$(147)CHR$(142)SPC(120)
  271. 2560 :PRINT"[195][195][195][178]";:FOR L = 1 TO 36:PRINT"[195]";:NEXT L
  272. 2570 PRINT"SET[221]  CONFLICTING COLOURS WITH NUMBERS
  273. 2580 :[153]"LENLENLEN(null)";:[129] L [178] 1 [164] 36:[153]"LEN";:[130] L
  274. 2590 :[153]" 1 PEEKBLACK (0)
  275. 2600 :PRINT"[195][195][195][219]";:FOR L = 1 TO 36:PRINT"[195]";:NEXT L
  276. 2610 PRINT" 2 [194]RED (2), BLUE (6), BROWN (9)
  277. 2620 :[153]"   PEEKGRAY 1 (11)
  278. 2630 :PRINT"[195][195][195][219]";:FOR L = 1 TO 36:PRINT"[195]";:NEXT L
  279. 2640 :PRINT"   [194]PURPLE (4), GREEN (5)
  280. 2650 :[153]" 3 PEEKORANGE (8), LT.RED (10)
  281. 2660 :PRINT"   [194]GRAY 2 (12), LT.BLUE (14)
  282. 2670 :[153]"LENLENLEN(null)";:[129] L [178] 1 [164] 36:[153]"LEN";:[130] L
  283. 2680 :[153]" 4 PEEKCYAN (3), YELLOW (7), LT.GREEN (13)
  284. 2690 :PRINT"   [194]GRAY 3 (15)
  285. 2700 :[153]"LENLENLEN(null)";:[129] L [178] 1 [164] 36:[153]"LEN";:[130] L
  286. 2710 :[153]" 5 PEEKWHITE (1)
  287. 2720 :PRINT"[195][195][195][177]";:FOR L = 1 TO 36:PRINT"[195]";:NEXT L
  288. 2730 :RETURN
  289. 2745 REM SET BORDER COLOUR
  290. 2750 :PRINTCHR$(147):POKE 53280, BO
  291. 2755 REM SET BACKGROUND COLOUR
  292. 2760 :POKE 53281, BA
  293. 2765 REM SET CHARACTER COLOUR
  294. 2770 :PRINTCHR$(CC)
  295. 2775 REM DISPLAY COLOUR NUMBERS
  296. 2780 :PRINTCHR$(147);"        COLOURS   "
  297. 2790 :PRINT" BORDER     =";PEEK(53280) AND 15" SET ="S1
  298. 2800 :PRINT" BACKGROUND =";PEEK(53281) AND 15" SET ="S2
  299. 2810 :PRINT"";" CHARACTERS ="C" SET ="S3
  300. 2820 :RETURN
  301. 2845 REM TABLE USES RULES SUBROUTINE
  302. 2850 :PRINTCHR$(147)SPC(46)CHR$(18)" [210][213][204][197][211][160][198][207][210][160][213][211][201][206][199][160][212][200][197][160][212][193][194][204][197] "CHR$(146)
  303. 2860 PRINT" (1) [193] SINGLE COLOUR CAN NOT BE USED
  304. 2870 [153]" FOR BOTH BACKGROUND AND CHARACTERS."[166]44)
  305. 2880 [153]" (2) LENOLOURS OF THE SAME SET SHOULD NOT
  306. 2890 PRINT" BE USED FOR BACKGROUND & CHARACTERS & "
  307. 2900 PRINT" CAN BE POOR FOR BORDER AND BACKGROUND."SPC(41)
  308. 2920 PRINT" (3) [212]WO COLOURS OF ONE SET CAN BE USED
  309. 2930 [153]" FOR BORDER AND CHARACTERS IF SEPARATED
  310. 2940 PRINT" BY A BACKGROUND COLOUR OF ANOTHER SET."SPC(41)
  311. 2960 PRINT" (4) [206]O DIFFICULTY WILL BE ENCOUNTERED
  312. 2970 [153]" IF COLOURS FROM THREE SETS ARE USED."[166]43)
  313. 2980 [153]" (5) (null)SE THE LOW NUMBERED SETS FOR THE
  314. 2990 PRINT" DARKER SCREEN SHADES AND THE HIGHER
  315. 3000 [153]" NUMBERED SETS FOR THE BRIGHT SCREENS.
  316. 3010 RETURN
  317.